Module modErrors
    Public Sub errNetworkSendError(ByRef caller As Object, ByVal msg As Object)
        errNetworkError(caller, msg)
    End Sub

    Public Sub errNetworkReceiveError(ByRef caller As Object, ByVal msg As Object)
        errNetworkError(caller, msg)
    End Sub

    Public Sub errNetworkError(ByRef caller As Object, ByVal msg As Object)
        'If Not frmMain.tmrrebootreminder Is Nothing Then
        '   frmMain.tmrrebootreminder.Change(Threading.Timeout.Infinite, Threading.Timeout.Infinite)
        'End If
        'If Not frmMain.tmrCheckIn Is Nothing Then
        '   frmMain.tmrCheckIn.Change(Threading.Timeout.Infinite, Threading.Timeout.Infinite)
        'End If

        If Not frmMain.clientRestarted Then
            frmMain.clientRestarted = True
            Process.Start(Application.ExecutablePath)
            'Application.Exit()
            Process.GetCurrentProcess.Kill()
        End If
    End Sub
End Module
